home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / wb / remember.lha / Remember.p < prev    next >
Text File  |  1998-04-01  |  8KB  |  219 lines
  1. ; Remember 1.0
  2. ; 
  3. ; (c) 1998 Cyborg 
  4.  
  5.     {* Include sys:coder/preass/Options.p *}
  6.     {* Include sys:coder/preass/Prozeduren.p *}
  7.     {* String: Version="$VER: Remember 1.0 30.3.98 (C) CYBORG 98"*}
  8.     {* IncBlock: Readynamen,1024*}
  9.     {* IncBlock: Backupnamen,1024*}
  10.     {* Include sources:Remember.fenster*}
  11.     {* IncVar: Name2,Name1,AppMessage*}
  12.     {* String: Portname="Remember"*}
  13.  
  14. PortUp[]:
  15.     movem.l a0-a3,-(sp)
  16.     cport=createmsgport()
  17.     addport(cport)
  18.     move.l cport,a0
  19.     lea 10(a0),a0
  20.     move.l #Portname,(a0)
  21.     movem.l (sp)+,a0-a3
  22.     RTS
  23.  
  24. PortDown[]:
  25.     movem.l a0-a3,-(sp)
  26.     RemPort(cPort)
  27.     deletemsgport(cport)
  28.     movem.l (sp)+,a0-a3
  29.     RTS
  30.  
  31. Printname[]:
  32.     Taskname=.l10(Task)
  33.     Bytes=Countstring(Taskname)
  34.     Write(OH,Taskname,Bytes)
  35.     Write(OH,"\n",1)
  36.     RTS
  37.  
  38. PrintTasks[Task]:
  39.     Task=.l0(Task)
  40.     If Task##0 {
  41.                  Printname()
  42.                  bra PrintTasks
  43.                }
  44.     RTS
  45.  
  46. PrintTasknames[]:
  47.     Waiting=406(Execbase)
  48.     Ready=420(Execbase)
  49.     Write(OH,"\nReady-Tasks\n-----------\n",?)
  50.     PrintTasks(Ready)
  51.     Write(OH,"\nWait-Tasks\n----------\n",?)
  52.     PrintTasks(Waiting)
  53.     RTS
  54.  
  55. GetTasknames[]:
  56.     Task=420(Execbase)
  57.     Lea Readynamen,a5
  58. .GetTasknames1:
  59.     Task=.l0(Task)
  60.     Taskname=.l10(Task)
  61.     If Task##0 {
  62.                  move.l Taskname,(a5)+
  63.                  bra .GetTasknames1
  64.                }
  65.     Task=406(Execbase)
  66. .GetTasknames2:
  67.     Task=.l0(Task)
  68.     Taskname=.l10(Task)
  69.     If Task##0 {
  70.                  move.l Taskname,(a5)+
  71.                  bra .GetTasknames2
  72.                }
  73.     move.l #0,(a5)+
  74.     RTS
  75.  
  76. VergleicheTaskzeiger[]:
  77.     Lea Readynamen,a0
  78.     Lea Backupnamen,a1
  79. .l1:move.l (a0)+,d0
  80.     cmpi.l #0,d0
  81.     beq .OK
  82.     Lea Backupnamen,a1
  83. .l2:cmpi.l #0,(a1)
  84.     beq .error
  85.     cmpi.l (a1)+,d0
  86.     bne .l2
  87.     bra .l1
  88. .error:
  89.     moveq.l #0,d0
  90.     RTS
  91. .ok:
  92.     moveq.l #-1,d0
  93.     RTS
  94.  
  95. WriteStrings[]:
  96.     lea Readynamen,a5
  97.     move.l #255,d6                                         
  98. .l1:move.l (a5)+,a4
  99.     cmpi.l #0,a4
  100.     beq .l2
  101.     bytes=Countstring(a4)
  102.     Write(FH,A4,Bytes)
  103.     Write(FH,"\n",1)
  104.     bra .l1
  105. .l2:RTS
  106.  
  107. HideMode:
  108.     GetTasknames()
  109.     Copymem(#Readynamen,#Backupnamen,1024)
  110. .Schleife:
  111.     Delay(50)
  112.     GetTasknames()
  113.     If VergleicheTaskzeiger()=#0 {
  114.                                    Result=DrawGuia(Gui,0)
  115.                                    Copymem(#Readynamen,#Backupnamen,1024)
  116.                                    If (FH=Open("Envarc:Remember.dump",#Mode_new))##0 {
  117.                                                                                        WriteStrings()
  118.                                                                                        Close(FH)
  119.                                                                                      }
  120.                                  }
  121.     
  122.     bra .Schleife    
  123.  
  124. Start:
  125.     OH=Output()
  126.     GetFilename()
  127.     If Filename=#"HIDE" --> Hidemode
  128. ;    PrintTasknames()
  129.     PortUp()
  130.     If (DiskObj=GetDiskObject("ProgDir:Remember"))=#0 --> PDown
  131.     If (AppIcon=AddAppIconA(0,0,"Remember",Cport,0,DiskObj,0))=#0 --> FDisk
  132.     GetTasknames()
  133.     Copymem(#Readynamen,#Backupnamen,1024)
  134. OWin:
  135.     If Window##0 --> WaitMessage
  136.     If Open_window()=#0 --> RICON
  137.     If Create_Gadgets()##0 --> closewindow
  138. WaitMessage:
  139.     For I=0 To 50
  140.         Delay(10)
  141.         GuiGadgetActionA(Gui,>GetTags:GEG_GetVar,GEG_Allgadgets|Tag_done,Null)
  142.         If (Msg=GetMsg(Cport))##0 {
  143.                                     move.l Msg,a0
  144.                                     Moveq.l #0,d0
  145.                                     lea 18(a0),a0
  146.                                     move.w (a0)+,d0
  147.                                     add.l d0,a0
  148.                                     move.l a0,AppMessage
  149.                                     AM_Type=.w0(AppMessage)
  150.                                     AM_NumArgs=.l10(AppMessage)
  151.                                     AM_ArgList=.l14(AppMessage)
  152.                                     If AM_Type##8 and AM_Type##7 --> WaitMessage
  153.                                     If AM_Numargs=#0 and AM_Arglist=#0 --> OWIN
  154.                                     Anzahl==AM_NumArgs
  155.                                     ArgList==AM_Arglist
  156.                                     ReplyMsg(Msg)
  157.                                     Bra OWin
  158.                                   }
  159.         If Window##0 and (Msg=GetGuiMsg(Gui))##0 { 
  160.                                  MsgClass=.l36(Gui)
  161.                                  MsgGadNbr=.w52(Gui)
  162.                                  If MsgClass=#IDCMP_CloseWindow {
  163.                                                                   jsr Close_window
  164.                                                                   bra WaitMessage
  165.                                                                 }
  166.                                  GuiGadgetActionA(Gui,#GetTags)
  167.                                  If MsgGadNbr=#1 {
  168.                                                    move.l name1,d0
  169.                                                    swap d0
  170.                                                    andi.l #$FFFF,d0
  171.                                                    muls.l #4,d0
  172.                                                    lea Readynamen,a0
  173.                                                    add.l d0,a0
  174.                                                    move.l (a0),Name2
  175.                                                    Bytes=Countstring(Name2)
  176.                                                    Result=Countstring(#befehlsstring)
  177.                                                    If (FH=Open("envarc:Remember.tasks",#Mode_Old))##0 {
  178.                                                                                                          Seek(FH,0,#Offset_End)
  179.                                                                                                          Write(FH,Name2,Bytes)
  180.                                                                                                          Write(FH,"\n",1)
  181.                                                                                                          Write(FH,#Befehlsstring,Result)
  182.                                                                                                          Write(FH,"\n",1)
  183.                                                                                                          Close(FH)
  184.                                                                                                        }
  185.                                                  }
  186.                                  If MsgGadNbr=#3 --> CloseWindow
  187.                                }
  188.     Next I
  189. Remember:
  190.     GetTasknames()
  191.     If VergleicheTaskzeiger()=#0 {
  192.                                    If Window##0 {
  193.                                                   Result=DrawGuia(Gui,0)
  194.                                                 }
  195.                                    Copymem(#Readynamen,#Backupnamen,1024)
  196.                                    If (FH=Open("Envarc:Remember.dump",#Mode_new))##0 {
  197.                                                                                        WriteStrings()
  198.                                                                                        Close(FH)
  199.                                                                                      }
  200.                                  }
  201.     
  202.     bra WaitMessage
  203. Closewindow:
  204.     Close_window()
  205. RIcon:
  206.     If AppIcon##0 {
  207.                     RemoveAppIcon(AppIcon)
  208.                   }
  209. FDisk:
  210.     FreeDiskObject(DiskObj)
  211. Pdown:
  212.     If (OK=GetMsg(Cport))##0 {
  213.                                ReplyMsg(OK)
  214.                                Bra Pdown
  215.                              }
  216.     PortDown()
  217. ende:
  218.     RTS
  219.